home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / H219.ZIP / DVIPSSRC.ZIP / pslatex / psgreek.sty < prev    next >
Text File  |  1990-11-17  |  1KB  |  39 lines
  1. %--------------------------------------------------------------
  2. %---------- greek.sty ---------------------
  3. %---------- 4/19/90 S. Janowsky -----------
  4. %
  5. % Include as a style option after times, palatino, or whatever.
  6. %
  7. \def\@mathgreekmap#1{\@cmrscale=\@cmrfam \multiply\@cmrscale by 256
  8. \advance\@cmrscale by \the#1 \mathchardef#1=\@cmrscale\relax}
  9. \@mathgreekmap{\Gamma}
  10. \@mathgreekmap{\Delta}
  11. \@mathgreekmap{\Theta}
  12. \@mathgreekmap{\Lambda}
  13. \@mathgreekmap{\Xi}
  14. \@mathgreekmap{\Pi}
  15. \@mathgreekmap{\Sigma}
  16. \@mathgreekmap{\Upsilon}
  17. \@mathgreekmap{\Phi}
  18. \@mathgreekmap{\Psi}
  19. \@mathgreekmap{\Omega}
  20. %
  21. \def\@mathaccdefmap#1#2{\@cmrscale=\@cmrfam \multiply\@cmrscale by 256
  22. \advance\@cmrscale by #2 \edef#1{\mathaccent\the\@cmrscale}\relax}
  23. %
  24. \@mathaccdefmap{\acute}{"0013 }
  25. \@mathaccdefmap{\grave}{"0012 }
  26. \@mathaccdefmap{\ddot}{"007F }
  27. \@mathaccdefmap{\tilde}{"007E }
  28. \@mathaccdefmap{\bar}{"0016 }
  29. \@mathaccdefmap{\breve}{"0015 }
  30. \@mathaccdefmap{\check}{"0014 }
  31. \@mathaccdefmap{\hat}{"005E }
  32. %\@mathaccdefmap{\vec}{"017E }          % Not type 00
  33. \@mathaccdefmap{\dot}{"005F }
  34. %\@mathaccdefmap{\widetilde}{"0365 }    % Not type 00
  35. %\@mathaccdefmap{\widehat}{"0362 }      % Not type 00
  36. %
  37. %----------------------------------------------------
  38.  
  39.